|
38
|
How do I organize vertically the elements
Procedure OnCreate
Forward Send OnCreate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element A" Nothing Nothing to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Set ComID of hoElement to "A"
Send Destroy to hoElement
Variant voElement1
Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1
Handle hoElement1
Get Create (RefClass(cComElement)) to hoElement1
Set pvComObject of hoElement1 to voElement1
Set ComID of hoElement1 to "B"
Send Destroy to hoElement1
Variant voElement2
Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2
Handle hoElement2
Get Create (RefClass(cComElement)) to hoElement2
Set pvComObject of hoElement2 to voElement2
Set ComID of hoElement2 to "C"
Send Destroy to hoElement2
Variant voElement3
Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3
Handle hoElement3
Get Create (RefClass(cComElement)) to hoElement3
Set pvComObject of hoElement3 to voElement3
Set ComID of hoElement3 to "D"
Send Destroy to hoElement3
Send Destroy to hoElements
Variant voLinks
Get ComLinks to voLinks
Handle hoLinks
Get Create (RefClass(cComLinks)) to hoLinks
Set pvComObject of hoLinks to voLinks
Variant vFrom
Variant voElements1
Get ComElements to voElements1
Handle hoElements1
Get Create (RefClass(cComElements)) to hoElements1
Set pvComObject of hoElements1 to voElements1
Get ComItem of hoElements1 "A" to vFrom
Send Destroy to hoElements1
Variant vTo
Variant voElements2
Get ComElements to voElements2
Handle hoElements2
Get Create (RefClass(cComElements)) to hoElements2
Set pvComObject of hoElements2 to voElements2
Get ComItem of hoElements2 "B" to vTo
Send Destroy to hoElements2
Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
Variant vFrom1
Variant voElements3
Get ComElements to voElements3
Handle hoElements3
Get Create (RefClass(cComElements)) to hoElements3
Set pvComObject of hoElements3 to voElements3
Get ComItem of hoElements3 "A" to vFrom1
Send Destroy to hoElements3
Variant vTo1
Variant voElements4
Get ComElements to voElements4
Handle hoElements4
Get Create (RefClass(cComElements)) to hoElements4
Set pvComObject of hoElements4 to voElements4
Get ComItem of hoElements4 "C" to vTo1
Send Destroy to hoElements4
Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing
Variant vFrom2
Variant voElements5
Get ComElements to voElements5
Handle hoElements5
Get Create (RefClass(cComElements)) to hoElements5
Set pvComObject of hoElements5 to voElements5
Get ComItem of hoElements5 "B" to vFrom2
Send Destroy to hoElements5
Variant vTo2
Variant voElements6
Get ComElements to voElements6
Handle hoElements6
Get Create (RefClass(cComElements)) to hoElements6
Set pvComObject of hoElements6 to voElements6
Get ComItem of hoElements6 "D" to vTo2
Send Destroy to hoElements6
Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
Variant vFrom3
Variant voElements7
Get ComElements to voElements7
Handle hoElements7
Get Create (RefClass(cComElements)) to hoElements7
Set pvComObject of hoElements7 to voElements7
Get ComItem of hoElements7 "B" to vFrom3
Send Destroy to hoElements7
Variant vTo3
Variant voElements8
Get ComElements to voElements8
Handle hoElements8
Get Create (RefClass(cComElements)) to hoElements8
Set pvComObject of hoElements8 to voElements8
Get ComItem of hoElements8 "C" to vTo3
Send Destroy to hoElements8
Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing
Send Destroy to hoLinks
Set ComShowLinksType to OLEexLinkStraight
Set ComDefArrange OLEexDefArrangeDir to 1
Send ComArrange Nothing
End_Procedure
|
|
37
|
How can I add programatically a link
Procedure OnCreate
Forward Send OnCreate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
Get ComAdd of hoElements "Element <sha ;;0>B" 96 24 to Nothing
Send Destroy to hoElements
Variant voLinks
Get ComLinks to voLinks
Handle hoLinks
Get Create (RefClass(cComLinks)) to hoLinks
Set pvComObject of hoLinks to voLinks
Variant vFrom
Variant voElements1
Get ComElements to voElements1
Handle hoElements1
Get Create (RefClass(cComElements)) to hoElements1
Set pvComObject of hoElements1 to voElements1
Get ComItem of hoElements1 1 to vFrom
Send Destroy to hoElements1
Variant vTo
Variant voElements2
Get ComElements to voElements2
Handle hoElements2
Get Create (RefClass(cComElements)) to hoElements2
Set pvComObject of hoElements2 to voElements2
Get ComItem of hoElements2 2 to vTo
Send Destroy to hoElements2
Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
Send Destroy to hoLinks
End_Procedure
|
|
36
|
How do I get the link from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant l
Get ComLinkFromPoint -1 -1 to l
Showln l
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
Get ComAdd of hoElements "Element <sha ;;0>B" 96 24 to Nothing
Send Destroy to hoElements
Variant voLinks
Get ComLinks to voLinks
Handle hoLinks
Get Create (RefClass(cComLinks)) to hoLinks
Set pvComObject of hoLinks to voLinks
Variant vFrom
Variant voElements1
Get ComElements to voElements1
Handle hoElements1
Get Create (RefClass(cComElements)) to hoElements1
Set pvComObject of hoElements1 to voElements1
Get ComItem of hoElements1 1 to vFrom
Send Destroy to hoElements1
Variant vTo
Variant voElements2
Get ComElements to voElements2
Handle hoElements2
Get Create (RefClass(cComElements)) to hoElements2
Set pvComObject of hoElements2 to voElements2
Get ComItem of hoElements2 2 to vTo
Send Destroy to hoElements2
Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
Send Destroy to hoLinks
End_Procedure
|
|
35
|
Is there a way to create a link which has the same start and end element
Procedure OnCreate
Forward Send OnCreate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Get ComAdd of hoElements "Element" Nothing Nothing to Nothing
Send Destroy to hoElements
Variant voLinks
Get ComLinks to voLinks
Handle hoLinks
Get Create (RefClass(cComLinks)) to hoLinks
Set pvComObject of hoLinks to voLinks
Variant vFrom
Variant voElements1
Get ComElements to voElements1
Handle hoElements1
Get Create (RefClass(cComElements)) to hoElements1
Set pvComObject of hoElements1 to voElements1
Get ComItem of hoElements1 1 to vFrom
Send Destroy to hoElements1
Variant vTo
Variant voElements2
Get ComElements to voElements2
Handle hoElements2
Get Create (RefClass(cComElements)) to hoElements2
Set pvComObject of hoElements2 to voElements2
Get ComItem of hoElements2 1 to vTo
Send Destroy to hoElements2
Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
Send Destroy to hoLinks
End_Procedure
|
|
34
|
How can I show the pool's caption not-rotated or mirrored
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowDesignHeader to OLEexDesignHeaderSingle
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -150 -150 300 150 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Set ComHeaderCaptionSupportRotate of hoPool to False
Set ComHeaderSize of hoPool OLEexHeaderLeft to 48
Set ComHeaderSize of hoPool OLEexHeaderRight to 48
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
33
|
How can I prevent creating sub-lanes or sub-phases
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowDesignHeader to OLEexDesignHeaderSingle
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -150 -150 300 150 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Set ComHeaderSize of hoPool OLEexHeaderLeft to 32
Set ComHeaderSize of hoPool OLEexHeaderRight to 32
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
32
|
How do I show a complete frame/border around the header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -150 -150 300 150 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Set ComHeaderSize of hoPool OLEexHeaderTop to 32
Set ComHeaderSize of hoPool OLEexHeaderBottom to 32
Variant voLane
Get ComLane of hoPool OLEexLaneVertical to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Variant voLane1
Get ComItem of hoLanes 1 to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voHeaderLane
Get ComHeader of hoLane1 to voHeaderLane
Handle hoHeaderLane
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
Set pvComObject of hoHeaderLane to voHeaderLane
Variant voPattern
Get ComPattern of hoHeaderLane to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrameThick
Send Destroy to hoPattern
Send Destroy to hoHeaderLane
Send Destroy to hoLane1
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
31
|
How do I show a complete frame/border around the lane
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -150 -150 300 150 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Set ComHeaderSize of hoPool OLEexHeaderTop to 32
Set ComHeaderSize of hoPool OLEexHeaderBottom to 32
Variant voLane
Get ComLane of hoPool OLEexLaneVertical to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Variant voLane1
Get ComItem of hoLanes 1 to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voPattern
Get ComPattern of hoLane1 to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrameThick
Send Destroy to hoPattern
Send Destroy to hoLane1
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
30
|
How can I define sub-lanes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -150 -150 300 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Set ComHeaderSize of hoPool OLEexHeaderTop to 32
Set ComHeaderSize of hoPool OLEexHeaderBottom to 32
Variant voLane
Get ComLane of hoPool OLEexLaneVertical to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Variant voLane1
Get ComItem of hoLanes 1 to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voLanes1
Get ComChildren of hoLane1 to voLanes1
Handle hoLanes1
Get Create (RefClass(cComLanes)) to hoLanes1
Set pvComObject of hoLanes1 to voLanes1
Set ComCount of hoLanes1 to 2
Send Destroy to hoLanes1
Send Destroy to hoLane1
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
29
|
How can I add default lanes when the user creates a new pool
// A new pool has been added to the surface.
Procedure OnComAddPool Variant llPool
Forward Send OnComAddPool llPool
// Pool.HeaderSize(1) = 24
// Pool.HeaderVisible(0) = False
// Pool.HeaderVisible(1) = True
// Pool.HeaderVisible(2) = False
// Pool.HeaderVisible(3) = False
// Pool.Lane(1).Children.Count = 2
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Get ComAdd of hoPools -100 -100 250 250 to Nothing
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
28
|
How do I prevent showing headers when the user creates new pools
// A new pool has been added to the surface.
Procedure OnComAddPool Variant llPool
Forward Send OnComAddPool llPool
Move to Pool
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -100 -100 250 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
27
|
How can I display icons on headers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -100 -100 250 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Set ComHeaderVisible of hoPool OLEexHeaderLeft to False
Set ComHeaderVisible of hoPool OLEexHeaderRight to False
Set ComHeaderVisible of hoPool OLEexHeaderBottom to False
Set ComHeaderSize of hoPool OLEexHeaderTop to 24
Variant voLane
Get ComLane of hoPool OLEexLaneVertical to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Variant voLane1
Get ComItem of hoLanes 0 to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voHeaderLane
Get ComHeader of hoLane1 to voHeaderLane
Handle hoHeaderLane
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
Set pvComObject of hoHeaderLane to voHeaderLane
Set ComCaption of hoHeaderLane to "<img>1</img> A"
Send Destroy to hoHeaderLane
Send Destroy to hoLane1
Variant voLane2
Get ComItem of hoLanes 1 to voLane2
Handle hoLane2
Get Create (RefClass(cComLane)) to hoLane2
Set pvComObject of hoLane2 to voLane2
Variant voHeaderLane1
Get ComHeader of hoLane2 to voHeaderLane1
Handle hoHeaderLane1
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane1
Set pvComObject of hoHeaderLane1 to voHeaderLane1
Set ComCaption of hoHeaderLane1 to "<img>2</img> B"
Send Destroy to hoHeaderLane1
Send Destroy to hoLane2
Variant voLane3
Get ComItem of hoLanes 2 to voLane3
Handle hoLane3
Get Create (RefClass(cComLane)) to hoLane3
Set pvComObject of hoLane3 to voLane3
Variant voHeaderLane2
Get ComHeader of hoLane3 to voHeaderLane2
Handle hoHeaderLane2
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane2
Set pvComObject of hoHeaderLane2 to voHeaderLane2
Set ComCaption of hoHeaderLane2 to "<img>3</img> C"
Send Destroy to hoHeaderLane2
Send Destroy to hoLane3
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
26
|
How do I change the Lane and Phase strings being displayed on the lanes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefPoolHeaderCaptionFormat True to "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
Set ComDefPoolHeaderCaptionFormat False to "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -100 -100 250 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Send Destroy to hoLanes
Send Destroy to hoLane
Variant voLane1
Get ComLane of hoPool OLEexLaneVertical to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voLanes1
Get ComChildren of hoLane1 to voLanes1
Handle hoLanes1
Get Create (RefClass(cComLanes)) to hoLanes1
Set pvComObject of hoLanes1 to voLanes1
Set ComCount of hoLanes1 to 3
Send Destroy to hoLanes1
Send Destroy to hoLane1
Variant voLane2
Get ComLane of hoPool OLEexLaneVertical to voLane2
Handle hoLane2
Get Create (RefClass(cComLane)) to hoLane2
Set pvComObject of hoLane2 to voLane2
Variant voLanes2
Get ComChildren of hoLane2 to voLanes2
Handle hoLanes2
Get Create (RefClass(cComLanes)) to hoLanes2
Set pvComObject of hoLanes2 to voLanes2
Variant voLane3
Get ComItem of hoLanes2 1 to voLane3
Handle hoLane3
Get Create (RefClass(cComLane)) to hoLane3
Set pvComObject of hoLane3 to voLane3
Variant voHeaderLane
Get ComHeader of hoLane3 to voHeaderLane
Handle hoHeaderLane
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
Set pvComObject of hoHeaderLane to voHeaderLane
Set ComCaption of hoHeaderLane to "<fgcolor FF0000><b>NEW"
Send Destroy to hoHeaderLane
Send Destroy to hoLane3
Send Destroy to hoLanes2
Send Destroy to hoLane2
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
25
|
How can I enlarge the node while AutoSize property is True (method 2)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element" 0 0 to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Variant voElement1
Get ComCopy of hoElement Nothing Nothing to voElement1
Handle hoElement1
Get Create (RefClass(cComElement)) to hoElement1
Set pvComObject of hoElement1 to voElement1
Set ComCaption of hoElement1 to "Enlarged Element"
Set ComInflateSize of hoElement1 to 16
Send Destroy to hoElement1
Send Destroy to hoElement
Send Destroy to hoElements
End_Procedure
|
|
24
|
How can I enlarge the node while AutoSize property is True (method 1)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element" 0 0 to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Variant voElement1
Get ComCopy of hoElement Nothing Nothing to voElement1
Handle hoElement1
Get Create (RefClass(cComElement)) to hoElement1
Set pvComObject of hoElement1 to voElement1
Set ComCaption of hoElement1 to "Enlarged Element"
Set ComPadding of hoElement1 OLEexPaddingAll to 16
Send Destroy to hoElement1
Send Destroy to hoElement
Send Destroy to hoElements
End_Procedure
|
|
23
|
How can I get the lane of the element
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -150 -150 500 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 3
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element" Nothing Nothing to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Send ComCenterOnLane of hoElement False
Variant lane
Get ComLaneID of hoElement False to lane
Variant v
Variant voLane1
Get ComLaneByID lane to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voHeaderLane
Get ComHeader of hoLane1 to voHeaderLane
Handle hoHeaderLane
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
Set pvComObject of hoHeaderLane to voHeaderLane
Get ComCaption of hoHeaderLane to v
Send Destroy to hoHeaderLane
Send Destroy to hoLane1
Showln v
Send Destroy to hoElement
Send Destroy to hoElements
Send ComEndUpdate
End_Procedure
|
|
22
|
How can I define a different shape for elements
// A new element has been added to the surface.
Procedure OnComAddElement Variant llElement
Forward Send OnComAddElement llElement
Move to Element
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABAQDg6AADACAxRDQNABQKAAzQFAYahuHKGAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQwDiAUIjIK8IhkGIcZAGIBJCjWGodQLOEgwHIERQjEyUJAGGYqEjaO41SpAdI0PCxUScACnDQiegJRgmQ4cTJSchSAKENx1JaeYReewwAqNd5TRwNIiydZUIhqGC1YRte4ZWiCWoJVzSVDLfbgAT4X60IIlCi5Mi6MIgDZJFDUNLUdRBMKNJ7qagaWoWOaQRbmAQQTRYLQ/TiEXZDQRAAyLJIWVRQWTAAKVbw1LiEcznGCcejzIIDaZpOh4DplWzTOgALjta4IRpvNwAbIAF4gBqsLyXXLcdQyORMiwbxZgSDhgnQbJFC6F5JhECA8CADwIgMeQnmoQJlh0eAfGcXYZjwccOHiWx/moAJ6jed4DC2dJnnmQRxBcKABBoWAcHULZLHyV4mmGOx0FmdpZAMAgQhEQBpBiRxBlQcgZFUdAMEYAxQDECBNgaUYglkCQKBGZANk0QgBgQXAQgcGI0FwJAHA6WI+DGDAjCiVg0g2Yw4mYNg7E0eJ1H+DpkAiYhBg6JApBYRMvDkJhGhKJIImEA4QledZ8H+FJlEEQhWBAJa8loRoCgkdhYBAExZHQKIXmUYRCFQI5mgWfZ4hMJpJC4boTGcCY0m0QJVBAIh2EIZZ5H4VIVAqeZ1H8M5oAmSg7g8TR1n4fQrmUQZCgqF5eEmYhYBgKQJiCD4PmaegKhWJZnAQDZkhqaYKFocYnGadZ8h+KJoiGQhfEIURAmKEAYAgeo1H8OZrAoeoyhGKYngaHInmuCpOjmKAkHMHo+iiSZxmKQoXkGCwWigRQlnqLh7jKSh7DYUYzm0CgAk+DIrFCAo3i6LYKnKWYuk6Wp4keKIqDsLh7BYLhJmaZo5mcYAijAOZtFsXpajubZLG6co8CSShtnYeJrGeVpzjwbxLnafI/mcK5ZnmPgtGuap+j6cIMB8CocDAK43AaQAwjwJwQkSaZsDcBI7jETBHBqRhxkibwWkCMQsgcG5Ii2TB+nkN5yEyJwjkqcJMh8DpKDKTIrB2TBmnyGwFkwMw8mcMpOmQbJbBiTwziyUxBDsc5sD8QJRnQKprEWTg0g0DxNlKMpsF8RpSHUTQ7BuUp0n0VxZi4MxrDSJ40DYDYHGKWJ2E2FxmyADYnGqMRBgeYh0FOLh9kccpcncJsVw7RdjvA2M4eovRmCSFkMwQIoAQEBA" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAChABAIDg6AADACAxRDQNABQKAAzQFAYaBmG6GAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DAAUIjKLMIhmGAYJAGIBJCjWGodQLOEgwHIERQjEyUpIyVAkYw5HqNaQjICoJoSOwAU47IaCIAFJSpCygKKgSjhRpoAAyU5IUgVPC4XSbD6zYDqapaTheEQyDSJNr3DCMUTlFYYLrmaQKMhqZJhWjbFSWXUpJ4pSrLMIyfTwZRJGzIK7jabLIjaP6GUDhVaYbRUL46CiEb5AAJsVpCCZrYRJOYVdQeDYbQCNLDhHQIDqaA6kZRAdQ2bpMBznPSvbovDgLWhGYqhbLCNibRC+d4HNrCYIlCjpMw3CYGIOHOMRsm0OxFjSZppneHQNFcSwRAOaprjqY4dgYe4VgGWwADucRuHYCpdByYROH8AAOC8D4NgEXwYBWEZyGAWoHg2MRCECBAkFAGhGDGUB1ByBhQkUIAPgCRAMEIExhIuNhCEKBAlnAcwQgAYQXAIIRWEUFwJAGQ42CiCoihiLgugsYwDjSZ4MkICJWCaDZjgiZg6EIQQInSV4PmKeIyEKEBkBQDhEgwZBzjSd4SlEQJgk+E5khkRhIhSZA5FIUoVGWCQkl+FpkliTJnhXSYaFaGJOlEIhmC2ZoJgIZIaiWGYuG62IpDyT4TGSM5eGyCpmCnPIcCeQg+H6HZmnoAh6iAaBDjSL4hkUCgmgKHhlHmeIPh8BwKAqEohGkOgOHCI4pAmMoMhUKByj6CQUCkWoGhSKJpGkJoQiOJR6G4cYTmcSQuiKKRqEqPovhmBIJiCN4YEACQGFsN5lliToyiwbAKkKQoSGcWQ2HKERrhiJJvjLUR8leL5sDsBpQiUZZpDaO4eAACZWh+LYtDsSpejQbmJnIEAuEsLJvECRgLiSH46m2W4Gl+OxpFqWo0ECSR7lQaI9m8C4+nqO4uAIHp+B4MAJmcAAeC+YgenmPwwHwHInkKRYMDaWIQGmeh3AmPpxDsCJHkWbhBAIdZDmMGZXBmRZMHwVwikUIwam0MAMC4awiEmOYyHsXwkkIMp5jMLBMDKaRiiqEBsmkNwpkwc5MyiHRrEKfxCiobIaFsQgvmsTBvD2SJuAwNBYkKSh6GsRYbDUDQ7EyVZmEwDwFiKdQ6BQf5XnYDRjD6IIujIfppBgKRcl6BZZnYXYLBWLYpn0KpglqLAtAIZoOneBsZw9RJjnQ+AYQAgCAg=" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAAChABQsMACAADACAxRDQNABQKAAzQFAYawLBgABhGUZoJhUAIIRZGMIjFDcEwxC6NIpAWCYQgUNQCQiNAzxAKQchhD4ZAIkGY4ZhyA42SBAcbyDCEShoGqPRhmCg5UjmM4oQLSFDULC0fSBBIYaSGEY5QoqIYfArGQYQTRUPyUdoOBIACwLChWLA1CTZdowSKoYTXBq3IgqerIapmSYaV7YNh3VY1IR/JSVJYlaYJDoyNI4ThHc5xVLtfSfAiiJrxOKcTAAFJ0QKFUbRUz+OgBTpvaZxagaSpSG5WRpWEI5PAdN4zTa7YDsS67FiSG5oWpEFq2eAGdzlVLMMqhG5gAxqNKzbLfMCXfJIbyrBIcYLoXItCqFYskMTwxlgAY+haFZRlQZQ4HwHR3AoMx5jEch2lMfZGl8eY+jYXBvBsAAHFeRQDmuRR8nsSI2CoEgIEIRQBiQYwdAcUZIGUUIQhGGAGECRAhDYChGFERAMCgQheEcGQgHkEAwkICx2BCFoAj+B5iAiBgigiYhIgid4JkIQBwm2ChijiKgsguYpokYLYMmKQIiDYDgjgEAg6g6Y5InYPoPmOIAiEKEJFgkFIvhGYwIlIMoSTmAhOGgJJJC4UoSiUSIcncKZlp8WoOAOAxeF6FBlEkNhPGcZgJhYU4ZiMMweGoDAmkGfhuhWJoJDgIIUCYeZWGGHYkhkWhuB+ZYhEIcIUmcKZSHeIJmgoFgyCeaIBgKCoYCgGYSHiI5oEoQgsiKBgKCCH4SOAfoGiQaZKPmJ5jGCIJniiZgpk6DonGkKomgOHpnjqFoCiaawKioSYXg0eoGi6KZrBqIo6hgEIal6GosiwCpuDIBgsEqDJniYa4bVuFYkDqepKjCLQJiiR4XCyawGk+JpGgsZIXjabRbEKV4disSYwDCH5OlsIpWjmaA5HKUomCYOp+l6OgkhoUoWiMLpbH6bw7G0KRynOHYuGuXobhWB4MAaaoaimO52naB4hnkYInhERYLBAGAhnECw+H2BwhkmSg7kMMIqHyb49hAECAg=" to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAChABOIDg6AADACAxRDQNABQKAAzQFAYaBqGCGAAGEZRSgmFgAQhFcZQTCsBw7DCEYxjOAwFgmEQxDIOIBQSKYcwiGQaRrkIYgEiONoaR7HchSFIcIxPFKRBhkKYocjyG5GRoBcIyXAcRSYAB2Q4ESoKShePw5UDTcCzHR8RxEDKNRLpOQbDgOUZTWbVUaDKIsXzZCKHbZhG4YRp6CZKRpYEB1bYtKTRKqLKrpeTbOoSHolTbiIATTYlG4THyEZQrDIaDjOSIXZaGFzwSDWGgBJ60bRwHIaAxGWoHRxfEZVfBONQHMSBc5xa64JyHAImWrcUbWfaYYZ0AC6MRkK8cXABPQANixKZsCizE4DDbTYzjRheC2F4nnEOJRG0BRXEWOICEocByiyCJTiQOJVGYIQ8gofpDgsG5uF+ah6D2Xp+GGP5gkCfwRHofwOnuSB2heVpZnIUZQhAIQJBQBoRgwdAdEcIYVEIQhGGAMQDBCBJYEUGgNhCEMcHsXIkCIAAMIILQWAkAZDjYJIJiIWIeCqCRMHiNI/guYwIkYMoMmMSJWDaDZjgiTIzg6Yo4iIPoPGIdAmECChiFKXhGAQJIAmISgQCSSQ2E6E5lAkRhShSZRJFQOoVkCaRkAqFpQhIPhehCY54hYQoRCOYo+GaExOnmJhghqZhJjIYYbmaaJ0l+HJkiCYgtDGY5RkIegfmeSY6GOD4MnoBh1D2aBJkYbYhmcCgigaIhOloEJ3h0aATD4bgWCkQoehaGAnniHhNgwKI6HaConmiSYCF4I5niGQoLDmaoAiKKoaE6eJ2H+HZnFoeohigKwqCwGItmqA4ejIHgrkIHo+iuEA4h6PGMmIHo1i0LIKk6SoMCSWwcm2LAkisAAAgmQgLFYcw3myaxmkmG4GgsdIXjebYjjaVQIC0eQFAONADguBpqjaaIKlwGIuG4GwOkWOYAAqDoljqbIrmIJ41m4O5iGYK5FAwBp0ikag7mqbI+GoCwyEyPgpBCQwOj0KRBGKFgpnAbAjXWMQ8EaeIuG6a5SHWHZxFyBoIjEbA8FQCJJmiZAmmOORwHyCwXgkbwqn8LYoDKOZNAmJpinyOzTm8aZrBWH5QhGAxCCedBMm8L5Fi+fAEFCPgvksVp0h8NQBn8RpLi7NQKBALxLHyF43EaDRPDOMoxkqXp4kYaRLlMTQIDWbQeguR5iluBxCBgNBCH6dIJnaSZjF+LQZgGQSh5DOFEa4dQsi5GILsaA8ReBuHoEYZ4ZwkDFFwJEYo2grjcHOFUAoFA7gJFqFEDYrQyilC+PwNgyRBBLH4C8FIzxiD8CeBYEgUQ9CtAiEwYgtQyDqDWPUTjBhXBrCmAcKoJQ6iGF6DEMA8BpieA4BgMQdxDg9GSOkLQgRCjhHiDMV4Ewfh3AoGULIiBujRAuJ0c4+gEi4ASOkRAfhWgjCKKEFACCAg" to Nothing
Get ComAdd of hoAppearance 5 "gBFLBCJwBAEHhEJAAChABGgDg6AADACAxRDQNABQKAAzQFAYZBwGiGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ3DTJUBjIKcIhiGsgAzAJIUaw1DqGY7nKZoRioAIoSAMM7DCKUQSLGyQZqBSCQGjsAI+OyHAiABSNJwtHygIRoKqqHg2PoiSAEUZhdRlHShKSqLQiaIRSDUJZsW5EIyjBZ8EznOqbJApOKrCgOTYaWbUdSxPTEUwTFiXJgmKRKIoiOAAY7IEgSFLsThrIKha5yDI4bxyAwXQjeYABbY0E4HQarcqzCrKGp/HYJXyAGgQHYkB5JAaQMBtGpoJrCeKQXDdVyXFwdET1BLZQA2HeUTTRVCScqnaTMZh8DgGxniKfYbngAxFkmVJAnSdougwDhRlMGZ1GEPR9HQapDGWWhyCMe4ugQDx9naYRvm6cQfAUJ47m8cofBYAZOGCHg2mETgCBCERAGkGJHEGVByBkUwUCSIgChAMQIE2BJRiQVQDAoEIWlWIxOgGBBcGyBQYlQXAkAcDpYh4KYKCKKI2CyC5ijONJvgySZ4lQWINkKCJmCWDpjkQaJPg+UA4joMYQiQI4eEYHAkgAYhKBgJJCh43JlAkEgwhSJA5E4VoVE6UQCFoL5lkkBhXhUCR5gYOQKAieYUneGZlEmJhfhqZYJFIWgQCWQp+F6GxigmHJ3BoJ4JmYMw7maKZSH6HxoAiQhvhwZ1VHYFAogmBIXiAZ55jKDIQgeChGG+G5BAoVJHiWaBYkIecznoOoeiMZYCj6IoYmcGhckeCophONoKh4aZagKLYrGkEZggeLJkCmThGDmZg5m6L4nmuOoCHaGJNnsBooAAIopCAcIZEiep2kqLwpnqCIviIBQLA4dolEECZakuK4sksYhYAgLZLOsQJLHuBBIjibR7haWYfGwawhAOJpmBuGpajuJRJkYbxAmgORynCOZvgqApejcAgIG4OYUA0e5em+PhokQXhKAYKx8AsCo+FEcJDA6D5MnwLwDkTWJulQQJuDEIphC2cQsHYbJEDCYJBAOLBrDIHwekUMBIiITgpmMcRhAOKYDgyRwnkyYwMjcK4cnAfAnCmSgzkoGhnkGZ45k6SIxjMTPIFCZOZEKSBxA0Fpui2b5LFoKIqGoaY/FKUY1gmdpQjOKxbBIV4zi0DQ6nmOhmFkUophCLILEMV5YiWCZkH+W5nl2HxfiiMwQmMTZOmqLhaLsx9iUH6JAMI1hCDjECFQawhghjBG2DseoGQzhNHwDwTAMAsgTEeCUZI1Q5jFHyLodYmWxB8GsPEVIPwxhSD6Awb4dgJD2HsAQQIoAQEB" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Rectangular" 0 0 to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Set ComShape of hoElement to OLEexShapeRectangular
Send Destroy to hoElement
Variant voElement1
Get ComAdd of hoElements "Round" 82 0 to voElement1
Handle hoElement1
Get Create (RefClass(cComElement)) to hoElement1
Set pvComObject of hoElement1 to voElement1
Set ComShape of hoElement1 to OLEexShapeRound
Send Destroy to hoElement1
Variant voElement2
Get ComAdd of hoElements "Rhomb" 138 0 to voElement2
Handle hoElement2
Get Create (RefClass(cComElement)) to hoElement2
Set pvComObject of hoElement2 to voElement2
Set ComShape of hoElement2 to OLEexShapeRhomb
Send Destroy to hoElement2
Variant voElement3
Get ComAdd of hoElements "Circle" 196 0 to voElement3
Handle hoElement3
Get Create (RefClass(cComElement)) to hoElement3
Set pvComObject of hoElement3 to voElement3
Set ComShape of hoElement3 to OLEexShapeCircle
Send Destroy to hoElement3
Variant voElement4
Get ComAdd of hoElements "EBN 1" 0 36 to voElement4
Handle hoElement4
Get Create (RefClass(cComElement)) to hoElement4
Set pvComObject of hoElement4 to voElement4
Set ComBackColor of hoElement4 to |CI$1000000
Set ComBorder of hoElement4 to OLEexNoLines
Send Destroy to hoElement4
Variant voElement5
Get ComAdd of hoElements "EBN 2" 54 36 to voElement5
Handle hoElement5
Get Create (RefClass(cComElement)) to hoElement5
Set pvComObject of hoElement5 to voElement5
Set ComBackColor of hoElement5 to |CI$2000000
Set ComBorder of hoElement5 to OLEexNoLines
Send Destroy to hoElement5
Variant voElement6
Get ComAdd of hoElements "EBN 3" 108 36 to voElement6
Handle hoElement6
Get Create (RefClass(cComElement)) to hoElement6
Set pvComObject of hoElement6 to voElement6
Set ComBackColor of hoElement6 to |CI$3000000
Set ComBorder of hoElement6 to OLEexNoLines
Send Destroy to hoElement6
Variant voElement7
Get ComAdd of hoElements "EBN 4 " 160 36 to voElement7
Handle hoElement7
Get Create (RefClass(cComElement)) to hoElement7
Set pvComObject of hoElement7 to voElement7
Set ComBackColor of hoElement7 to |CI$4000000
Set ComBorder of hoElement7 to OLEexNoLines
Send Destroy to hoElement7
Variant voElement8
Get ComAdd of hoElements "EBN 5 " 220 36 to voElement8
Handle hoElement8
Get Create (RefClass(cComElement)) to hoElement8
Set pvComObject of hoElement8 to voElement8
Set ComBackColor of hoElement8 to |CI$5000000
Set ComMinHeight of hoElement8 to 64
Set ComMinWidth of hoElement8 to 64
Set ComBorder of hoElement8 to OLEexNoLines
Send Destroy to hoElement8
Send Destroy to hoElements
Set ComScrollPos False to -160
Send ComEndUpdate
End_Procedure
|
|
21
|
Is it possible to add an inner control on the surface
// Occurs once an inside control fires an event.
Procedure OnComOleEvent Variant llElement Variant llEv
Forward Send OnComOleEvent llElement llEv
Showln llEv
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "activex hosting" Nothing Nothing to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Set ComType of hoElement to OLEexElementHostControl
Set ComControl of hoElement to "Forms.CommandButton.1"
Set ComCaption of hoElement to "Command Button"
Set ComHeight of hoElement to 64
Set ComWidth of hoElement to 128
Set ComElementFormat of hoElement to "14;"caption"/"client""
Set ComCaptionAlign of hoElement to OLEexTopCenter
Send Destroy to hoElement
Send Destroy to hoElements
End_Procedure
|
|
20
|
How can I create a copy of the element
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element 1" 0 0 to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Variant voElement1
Get ComCopy of hoElement Nothing Nothing to voElement1
Handle hoElement1
Get Create (RefClass(cComElement)) to hoElement1
Set pvComObject of hoElement1 to voElement1
Set ComCaption of hoElement1 to "Aka"
Send Destroy to hoElement1
Send Destroy to hoElement
Send Destroy to hoElements
End_Procedure
|
|
19
|
How can I define an opaque background for elements
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Get ComAdd of hoElements "Element 1" 0 0 to Nothing
Send Destroy to hoElements
Variant voElements1
Get ComElements to voElements1
Handle hoElements1
Get Create (RefClass(cComElements)) to hoElements1
Set pvComObject of hoElements1 to voElements1
Get ComAdd of hoElements1 "Element 2" 16 16 to Nothing
Send Destroy to hoElements1
End_Procedure
|
|
18
|
How can I show a different context-menu for all elements
// Occurs when the user selects an item from the object's context menu.
Procedure OnComActionContextMenu OLEContextMenuObjectActionEnum llAction OLEContextMenuObjectTypeEnum llObjectType Variant llObjectID Integer llCommandID Boolean llCommandChecked Variant llCommandCaption Variant llCommandValue Boolean llCancel
Forward Send OnComActionContextMenu llAction llObjectType llObjectID llCommandID llCommandChecked llCommandCaption llCommandValue llCancel
Showln llAction llObjectID llCommandID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComContextMenu OLEexContextMenuElement to "Item 1[id=1000],Item 2[id=2000]"
Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Get ComAdd of hoElements "Element 1" 0 0 to Nothing
Send Destroy to hoElements
Variant voElements1
Get ComElements to voElements1
Handle hoElements1
Get Create (RefClass(cComElements)) to hoElements1
Set pvComObject of hoElements1 to voElements1
Get ComAdd of hoElements1 "Element 2" 16 16 to Nothing
Send Destroy to hoElements1
End_Procedure
|
|
17
|
How can I show a different context-menu for element
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element" 0 0 to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Get ComInvokeContextMenu of hoElement "Item 1[id=1000],Item 2[id=2000]" to v
Send Destroy to hoElement
Send Destroy to hoElements
Showln v
End_Procedure
|
|
16
|
How can I change the design-modes being shown on the control's toolbar
Procedure OnCreate
Forward Send OnCreate
Set ComDesignModes to "Read-Only#0,Allow Any#3,Only-Element#1,Only-Pool#2"
End_Procedure
|
|
15
|
How can I change the default header's background color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -250 -150 500 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 4
Send Destroy to hoLanes
Send Destroy to hoLane
Variant voLane1
Get ComLane of hoPool OLEexLaneVertical to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voLanes1
Get ComChildren of hoLane1 to voLanes1
Handle hoLanes1
Get Create (RefClass(cComLanes)) to hoLanes1
Set pvComObject of hoLanes1 to voLanes1
Set ComCount of hoLanes1 to 4
Send Destroy to hoLanes1
Send Destroy to hoLane1
Send Destroy to hoPool
Send Destroy to hoPools
Set ComBackground OLEexPoolHorizontalHeaderBackColor to (RGB(0,255,0))
Set ComBackground OLEexPoolVerticalHeaderBackColor to (RGB(0,192,0))
Send ComEndUpdate
End_Procedure
|
|
14
|
How can I remove the Design item from the control's toolbar, to be locked ( no-design )
Procedure OnCreate
Forward Send OnCreate
Set ComToolBarFormat to "-1,100,101"
Set ComDesignMode to OLEexDesignLock
End_Procedure
|
|
13
|
How can I remove/disable the Color and Display-Grid from the surface's context menu
Procedure OnCreate
Forward Send OnCreate
Set ComContextMenu OLEexContextMenuSurface to "Delete[id=-32004](All[id=-32000][ttp=Deletes all the objects from the surface],[sep],Elements[id=-32001][ttp=Deletes all elements from the surface],Links[id=-32002][ttp=Deletes all links from the surface],Pools[id=-32003][ttp=Deletes all pools from the surface])"
End_Procedure
|
|
12
|
How can I change the element's context-menu when the user right-clicks the element
// Occurs when the user selects an item from the object's context menu.
Procedure OnComActionContextMenu OLEContextMenuObjectActionEnum llAction OLEContextMenuObjectTypeEnum llObjectType Variant llObjectID Integer llCommandID Boolean llCommandChecked Variant llCommandCaption Variant llCommandValue Boolean llCancel
Forward Send OnComActionContextMenu llAction llObjectType llObjectID llCommandID llCommandChecked llCommandCaption llCommandValue llCancel
// ContextMenuObjectFromID(ObjectType,ObjectID).BackColor = RGB(255,255,0)
Showln llAction llCommandCaption
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Get ComAdd of hoElements "element" 0 0 to Nothing
Send Destroy to hoElements
Set ComContextMenu OLEexContextMenuElement to "Simple,Value[edit=123],[sep],Popup(Check 1[chk],Check 2[chk=1])"
Send ComEndUpdate
End_Procedure
|
|
11
|
How do I prevent showing the context-menu when user right-clicks the surface
Procedure OnCreate
Forward Send OnCreate
Set ComContextMenu OLEexContextMenuSurface to ""
End_Procedure
|
|
10
|
How do I create parent-child (tree) lanes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -250 -150 500 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Set ComHeaderSize of hoPool OLEexHeaderTop to 32
Set ComHeaderVisible of hoPool OLEexHeaderBottom to False
Variant voLane
Get ComLane of hoPool OLEexLaneVertical to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 2
Variant voLane1
Get ComItem of hoLanes 0 to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voLanes1
Get ComChildren of hoLane1 to voLanes1
Handle hoLanes1
Get Create (RefClass(cComLanes)) to hoLanes1
Set pvComObject of hoLanes1 to voLanes1
Set ComCount of hoLanes1 to 2
Variant voLane2
Get ComItem of hoLanes1 0 to voLane2
Handle hoLane2
Get Create (RefClass(cComLane)) to hoLane2
Set pvComObject of hoLane2 to voLane2
Variant voHeaderLane
Get ComHeader of hoLane2 to voHeaderLane
Handle hoHeaderLane
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
Set pvComObject of hoHeaderLane to voHeaderLane
Set ComCaption of hoHeaderLane to "Phase <b>1.1"
Send Destroy to hoHeaderLane
Send Destroy to hoLane2
Variant voLane3
Get ComItem of hoLanes1 1 to voLane3
Handle hoLane3
Get Create (RefClass(cComLane)) to hoLane3
Set pvComObject of hoLane3 to voLane3
Variant voHeaderLane1
Get ComHeader of hoLane3 to voHeaderLane1
Handle hoHeaderLane1
Get Create (RefClass(cComHeaderLane)) to hoHeaderLane1
Set pvComObject of hoHeaderLane1 to voHeaderLane1
Set ComCaption of hoHeaderLane1 to "Phase <b>1.2"
Send Destroy to hoHeaderLane1
Send Destroy to hoLane3
Send Destroy to hoLanes1
Send Destroy to hoLane1
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
9
|
How do I create a pool with horizontal and lanes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -250 -150 500 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 4
Send Destroy to hoLanes
Send Destroy to hoLane
Variant voLane1
Get ComLane of hoPool OLEexLaneVertical to voLane1
Handle hoLane1
Get Create (RefClass(cComLane)) to hoLane1
Set pvComObject of hoLane1 to voLane1
Variant voLanes1
Get ComChildren of hoLane1 to voLanes1
Handle hoLanes1
Get Create (RefClass(cComLanes)) to hoLanes1
Set pvComObject of hoLanes1 to voLanes1
Set ComCount of hoLanes1 to 4
Send Destroy to hoLanes1
Send Destroy to hoLane1
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
8
|
How do I add programatically a pool with horizontal lanes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -250 -150 500 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Variant voLane
Get ComLane of hoPool OLEexLaneHorizontal to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 4
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
7
|
How do I add programatically a pool with vertical lanes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voPools
Get ComPools to voPools
Handle hoPools
Get Create (RefClass(cComPools)) to hoPools
Set pvComObject of hoPools to voPools
Variant voPool
Get ComAdd of hoPools -250 -150 500 250 to voPool
Handle hoPool
Get Create (RefClass(cComPool)) to hoPool
Set pvComObject of hoPool to voPool
Variant voLane
Get ComLane of hoPool OLEexLaneVertical to voLane
Handle hoLane
Get Create (RefClass(cComLane)) to hoLane
Set pvComObject of hoLane to voLane
Variant voLanes
Get ComChildren of hoLane to voLanes
Handle hoLanes
Get Create (RefClass(cComLanes)) to hoLanes
Set pvComObject of hoLanes to voLanes
Set ComCount of hoLanes to 4
Send Destroy to hoLanes
Send Destroy to hoLane
Send Destroy to hoPool
Send Destroy to hoPools
Send ComEndUpdate
End_Procedure
|
|
6
|
How can I change the toolbar's visual appearance
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolBarAppearance to |CI$1000000
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
Set ComBackground OLEexToolBarForeColor to (RGB(40,40,40))
Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1606060
Set ComBackground OLEexToolBarButtonDownForeColor to (RGB(240,240,240))
Set ComBackground OLEexToolBarButtonHotBackColor to |CI$1a0a0a0
Set ComBackground OLEexToolBarButtonHotForeColor to (RGB(255,255,255))
End_Procedure
|
|
5
|
How can I change the toolbar's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
End_Procedure
|
|
4
|
How can I fit or ensure that all elements are in the control's client area
Procedure OnCreate
Forward Send OnCreate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element A" -500 -500 to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Set ComBackColor of hoElement to (RGB(0,255,0))
Send Destroy to hoElement
Variant voElement1
Get ComAdd of hoElements "Element B" 500 500 to voElement1
Handle hoElement1
Get Create (RefClass(cComElement)) to hoElement1
Set pvComObject of hoElement1 to voElement1
Set ComBackColor of hoElement1 to (RGB(255,0,0))
Send Destroy to hoElement1
Get ComAdd of hoElements "Element C" 48 24 to Nothing
Send Destroy to hoElements
Send ComFitToClient
End_Procedure
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 30 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn" to Nothing
Get ComAdd of hoAppearance 31 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn" to Nothing
Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexContextMenuAppearance to |CI$1000000
Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
Set ComBackground OLEexToolBarAppearance to |CI$1000000
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
Set ComBackground OLEexToolBarButtonHotBackColor to |CI$c000000
Set ComBackground OLEexToolBarButtonDownBackColor to |CI$e000000
Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
Set ComBackground OLEexContextMenuSelHotBackColor to |CI$23000000
Set ComBackground |CI$2 to |CI$22000000
Set ComBackground |CI$3 to |CI$23000000
Set ComBackground OLEexCheckBoxState0 to |CI$20000000
Set ComBackground OLEexCheckBoxState1 to |CI$21000000
Set ComBackground OLEexRadioButtonState0 to |CI$1e000000
Set ComBackground OLEexRadioButtonState1 to |CI$1f000000
Send ComEndUpdate
End_Procedure
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" to Nothing
Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" to Nothing
Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexContextMenuAppearance to |CI$1000000
Set ComBackground OLEexContextMenuForeColor to (RGB(21,66,139))
Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
Set ComBackground OLEexToolBarAppearance to |CI$1000000
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
Set ComBackground OLEexToolBarButtonHotBackColor to |CI$d000000
Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1000000
Set ComBackground |CI$2 to |CI$d000000
Set ComBackground OLEexContextMenuGroupPopupFrameSingle to |CI$5000000
Set ComBackground OLEexContextMenuGroupPopupFrameHStart to |CI$6000000
Set ComBackground OLEexContextMenuGroupPopupFrameHIntermediate to |CI$7000000
Set ComBackground OLEexContextMenuGroupPopupFrameHEnd to |CI$8000000
Set ComBackground OLEexContextMenuGroupPopupFrameVStart to |CI$9000000
Set ComBackground OLEexContextMenuGroupPopupFrameVIntermediate to |CI$a000000
Set ComBackground OLEexContextMenuGroupPopupFrameVEnd to |CI$b000000
Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
Set ComBackground OLEexContextMenuSelHotBackColor to |CI$f000000
Send ComEndUpdate
End_Procedure
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn" to Nothing
Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn" to Nothing
Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexContextMenuAppearance to |CI$1000000
Set ComBackground OLEexContextMenuForeColor to (RGB(21,66,139))
Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
Set ComBackground OLEexToolBarAppearance to |CI$1000000
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
Set ComBackground OLEexToolBarButtonHotBackColor to |CI$d000000
Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1000000
Set ComBackground |CI$2 to |CI$d000000
Set ComBackground |CI$3 to |CI$1000000
Set ComBackground OLEexContextMenuGroupPopupFrameSingle to |CI$5000000
Set ComBackground OLEexContextMenuGroupPopupFrameHStart to |CI$6000000
Set ComBackground OLEexContextMenuGroupPopupFrameHIntermediate to |CI$7000000
Set ComBackground OLEexContextMenuGroupPopupFrameHEnd to |CI$8000000
Set ComBackground OLEexContextMenuGroupPopupFrameVStart to |CI$9000000
Set ComBackground OLEexContextMenuGroupPopupFrameVIntermediate to |CI$a000000
Set ComBackground OLEexContextMenuGroupPopupFrameVEnd to |CI$b000000
Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
Set ComBackground OLEexContextMenuSelHotBackColor to |CI$f000000
Send ComEndUpdate
End_Procedure
|